#Exerccio 8.2

explore <- function(x,y)
{
  x11()
  par(mfrow=c(2,4))
  boxplot(x,main="Boxplot de x",ylab="Valores de x")
  hist(x,main="Histograma de x",ylab="Frequencia")
  qqnorm(x,main="Grfico quantil-quantil de x",ylab="Quantis da amostra",xlab="Quantis tericos")
  qqline(x)
  plot(x~y,main="Disperso x~y")
  boxplot(y,main="Boxplot de y",ylab="Valores de y")
  hist(y,main="Histograma de y",ylab="Frequencia")
  qqnorm(y,main="Grfico quantil=quantil de y",ylab="Quantis da amostra",xlab="Quantis tericos")
  qqline(y)
  plot(y~x,main="Disperso y~x")
  par(mfrow=c(1,1))
  lista <- list(summary(x),summary(y),cor(x,y))
  names(lista) <- c(Resumo da varivel x,Resumo da varivel y,Correlao das variveis x e y)
  return(lista)
}